home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mcdsk340 / mcdsk-32.bas < prev    next >
Encoding:
BASIC Source File  |  1997-01-15  |  15.0 KB  |  231 lines
  1. Attribute VB_Name = "MCDSK_32_DEF"
  2. Option Explicit
  3.  
  4. ' file
  5.  
  6. '  definition for error type for ISFileNameVALID
  7. Public Const IFV_ERROR = 0
  8. Public Const IFV_NAME_TOO_LONG = 1
  9. Public Const IFV_EXT_TOO_LONG = 2
  10. Public Const IFV_TOO_MANY_BACKSLASH = 3
  11. Public Const IFV_BAD_DRIVE_LETTER = 4
  12. Public Const IFV_BAD_COLON_POS = 5
  13. Public Const IFV_EXT_WITHOUT_NAME = 6
  14.  
  15. ' definition for sFile attributes
  16. Public Const A_RDONLY = &H1             'Read only file
  17. Public Const A_HIDDEN = &H2             'Hidden file
  18. Public Const A_SYSTEM = &H4             'System file
  19. Public Const A_SUBDIR = &H10            'Subdirectory
  20. Public Const A_ARCHIVE = &H20           'Archive file
  21. Public Const A_NORMAL = &H80            'Normal sFile - No read/write restrictions
  22. Public Const A_COMPRESSED = &H800       'Compressed file
  23. Public Const A_NORMAL_ARCHIVE = &HFE    'Normal, Archive
  24. Public Const A_ALL = &HFF               'Normal, Archive, Read-Only, Hidden, System
  25.  
  26. ' definition for drive type
  27. Public Const DRIVE_UNKNOWN = 0
  28. Public Const DRIVE_NO_ROOT_DIR = 1
  29. Public Const DRIVE_REMOVABLE = 2
  30. Public Const DRIVE_FIXED = 3
  31. Public Const DRIVE_REMOTE = 4
  32. Public Const DRIVE_CDROM = 5
  33. Public Const DRIVE_RAMDISK = 6
  34.  
  35. '  definition for sFile sort
  36. Public Const SORT_ASCENDING = 1
  37. Public Const SORT_DESCENDING = 2
  38. Public Const SORT_CASE_SENSITIVE = 4
  39. Public Const SORT_CASE_INSENSITIVE = 8
  40.  
  41. ' definition for sFile I/O
  42. Public Const EOFILE = -1
  43. Public Const SEEK_CUR = 1
  44. Public Const SEEK_END = 2
  45. Public Const SEEK_SET = 0
  46.  
  47. ' definition for sFile uucp
  48. Public Const MODE_UUENCODE = 0
  49. Public Const MODE_UUDECODE = 1
  50.  
  51. ' definition for error type for SplitFile
  52. Public Const SPLIT_BAD_PARTSIZE = -1
  53. Public Const SPLIT_BAD_SOURCE_FILENAME = -2
  54. Public Const SPLIT_BAD_TARGET_FILENAME = -3
  55. Public Const SPLIT_CANT_OPEN_SOURCE = -4
  56. Public Const SPLIT_CANT_CREATE_TARGET = -5
  57.  
  58. ' definition for error type for CutFile
  59. Public Const CUT_BAD_POSITION = -1
  60. Public Const CUT_BAD_SOURCE_FILENAME = -2
  61. Public Const CUT_BAD_TARGET1_FILENAME = -3
  62. Public Const CUT_BAD_TARGET2_FILENAME = -4
  63. Public Const CUT_POSITION_TOO_BIG = -5
  64. Public Const CUT_CANT_OPEN_SOURCE = -6
  65. Public Const CUT_CANT_CREATE_TARGET1 = -7
  66. Public Const CUT_CANT_CREATE_TARGET2 = -8
  67.  
  68. ' definition for error type for GetFileDateTime
  69. Public Const GET_FILE_DT_NO_ERROR = -1
  70. Public Const GET_FILE_DT_CANT_OPEN_FILE = 8
  71. Public Const GET_FILE_DT_CANT_GET_TIME = 9
  72. Public Const GET_FILE_DT_CANT_CNV_CREATION = 1
  73. Public Const GET_FILE_DT_CANT_CNV_LAST_ACCESS = 2
  74. Public Const GET_FILE_DT_CANT_CNV_LAST_WRITE = 4
  75.  
  76. ' definition for error type for SetFileDateTime
  77. Public Const SET_FILE_DT_NO_ERROR = -1
  78. Public Const SET_FILE_DT_CANT_OPEN_FILE = 8
  79. Public Const SET_FILE_DT_CANT_SET_TIME = 9
  80. Public Const SET_FILE_DT_CANT_CNV_CREATION = 1
  81. Public Const SET_FILE_DT_CANT_CNV_LAST_ACCESS = 2
  82. Public Const SET_FILE_DT_CANT_CNV_LAST_WRITE = 4
  83.  
  84. ' definition for error type for FileMergeExt
  85. Public Const FILE_MERGE_NO_ERROR = -1
  86. Public Const FILE_MERGE_EMPTY_TARGET_FILENAME = -2
  87. Public Const FILE_MERGE_EMPTY_BAD_TARGET_FILENAME = -3
  88. Public Const FILE_MERGE_CANT_SET_FILE_BUFFER = -4
  89. Public Const FILE_MERGE_CANT_CREATE_TARGET_FILE = -5
  90. Public Const FILE_MERGE_ERROR_READING_FILE = -6
  91. Public Const FILE_MERGE_ERROR_WRITING_FILE = -7
  92. Public Const FILE_MERGE_ERROR_BAD_WRITE = -8
  93. Public Const FILE_MERGE_BAD_FILE_AT_POSITION = -10
  94.  
  95. ' structure for sFile attributes
  96. Type FileAttributeType
  97.    ErrNo             As Integer
  98.    Archive           As Integer
  99.    Hidden            As Integer
  100.    Normal            As Integer
  101.    ReadOnly          As Integer
  102.    SubDir            As Integer
  103.    System            As Integer
  104.    Compressed        As Integer
  105. End Type
  106.  
  107. ' structure for split path
  108. Type tagSPLITPATH
  109.    nDrive            As String
  110.    nDir              As String
  111.    nName             As String
  112.    nExt              As String
  113. End Type
  114.  
  115. ' structure for GetFileDateTime & SetFileDateTime
  116. Type tagSYSTEMTIME
  117.    wYear             As Integer
  118.    wMonth            As Integer
  119.    wDayOfWeek        As Integer
  120.    wDay              As Integer
  121.    wHour             As Integer
  122.    wMinute           As Integer
  123.    wSecond           As Integer
  124.    wMilliseconds     As Integer
  125. End Type
  126.  
  127. Declare Function cAllSubDirectories Lib "mcdsk-32.dll" (ByVal lpBaseDirectory As String, nDir As Long) As String
  128. Declare Function cChDir Lib "mcdsk-32.dll" (ByVal lpDir As String) As Integer
  129. Declare Function cChDrive Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Integer
  130. Declare Function cCmpFileAttribute Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  131. Declare Function cCmpFileContents Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, ByVal Sensitivity As Integer) As Integer
  132. Declare Function cCmpFileSize Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  133. Declare Function cCmpFileTime Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  134. Declare Function cCountDirectories Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  135. Declare Function cCountFiles Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  136. Declare Function cCutFile Lib "mcdsk-32.dll" (ByVal SourceFile As String, ByVal TargetFile1 As String, ByVal TargetFile2 As String, ByVal CutPosition As Long) As Long
  137. Declare Function cFileSize Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Long
  138. Declare Function cIsFileArchive Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  139. Declare Function cIsFileEmpty Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  140. Declare Function cIsFileFlag Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal nStatus As Integer) As Integer
  141. Declare Function cIsFileHidden Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  142. Declare Function cIsFileNormal Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  143. Declare Function cIsFileReadOnly Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  144. Declare Function cIsFileSubDir Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  145. Declare Function cIsFileSystem Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  146. Declare Function cIsFileCompressed Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  147. Declare Function cIsFilenameValid Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  148. Declare Function cKillDir Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  149. Declare Function cKillDirFilesAll Lib "mcdsk-32.dll" (ByVal lpDir As String, ByVal lpMask As String) As Integer
  150. Declare Function cKillDirs Lib "mcdsk-32.dll" (ByVal lpDir As String, ByVal HeaderDirectory As Integer) As Integer
  151. Declare Function cKillFile Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  152. Declare Function cKillFileAll Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  153. Declare Function cKillFiles Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  154. Declare Function cKillFilesAll Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  155. Declare Function cMakeDir Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  156. Declare Function cMakeMultipleDir Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  157. Declare Function cFileResetAllAttrib Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  158. Declare Function cFileResetArchive Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  159. Declare Function cFileResetFlag Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal nStatus As Integer) As Integer
  160. Declare Function cFileResetHidden Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  161. Declare Function cFileResetReadOnly Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  162. Declare Function cFileResetSystem Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  163. Declare Function cFileSetAllAttrib Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  164. Declare Function cFileSetArchive Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  165. Declare Function cFileSetAttrib Lib "mcdsk-32.dll" (ByVal nFileName As String, nFileAttribute As Any) As Integer
  166. Declare Function cFileSetFlag Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal nStatus As Integer) As Integer
  167. Declare Function cFileSetHidden Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  168. Declare Function cFileSetReadOnly Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  169. Declare Function cFileSetSystem Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  170. Declare Function cUniqueFileName Lib "mcdsk-32.dll" (Txt As String) As String
  171. Declare Function cFileCopy Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  172. Declare Function cFileCopy2 Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  173. Declare Function cFileDrive Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  174. Declare Function cFileGetAttrib Lib "mcdsk-32.dll" (ByVal nFileName As String, nFileAttribute As Any) As Integer
  175. Declare Function cFileMove Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  176. Declare Function cFilePathExists Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  177. Declare Function cFilesSize Lib "mcdsk-32.dll" (ByVal nFileName As String) As Double
  178. Declare Function cFilesSizeOnDisk Lib "mcdsk-32.dll" (ByVal nFileName As String) As Double
  179. Declare Function cFilesSlack Lib "mcdsk-32.dll" (ByVal nFileName As String, Size1 As Double, Size2 As Double) As Integer
  180. Declare Function cGetDiskClusterSize Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Double
  181. Declare Function cGetDiskFree Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Double
  182. Declare Function cGetDiskSpace Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Double
  183. Declare Function cGetDiskUsed Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Double
  184. Declare Function cGetFileDateTime Lib "mcdsk-32.dll" (ByVal nFileName As String, SysCreation As Any, SysLastAccess As Any, SysLastWrite As Any) As Integer
  185. Declare Function cRcsCountFileDir Lib "mcdsk-32.dll" (ByVal FileOrDir As Integer, ByVal FirstFileOrDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Integer
  186. Declare Function cRcsFilesSize Lib "mcdsk-32.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Double
  187. Declare Function cRcsFilesSizeOnDisk Lib "mcdsk-32.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Double
  188. Declare Function cRcsFilesSlack Lib "mcdsk-32.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer, Size1 As Double, Size2 As Double) As Integer
  189. Declare Function cSubDirectory Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal FirstNext As Integer) As String
  190. Declare Function cFileChangeChars Lib "mcdsk-32.dll" (ByVal nFileName As String, CharSet As String, NewCharSet As String, ByVal nFileTemp As String) As Long
  191. Declare Function cFileCompressTab Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, ByVal nTab As Long) As Long
  192. Declare Function cFileExpandTab Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, ByVal nTab As Long) As Long
  193. Declare Function cFileFilter Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, Filter As String) As Long
  194. Declare Function cFileFilterNot Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, Filter As String) As Long
  195. Declare Function cFileLineCount Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Long
  196. Declare Function cFileMerge Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, ByVal fileTo As String) As Long
  197. Declare Function cFileMergeExt Lib "mcdsk-32.dll" (FileArray() As String, ByVal TargetFile As String) As Long
  198. Declare Function cFileSearch Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  199. Declare Function cFileSearchAndReplace Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal Search As String, ByVal Replace As String, ByVal nFileTemp As String, ByVal Sensitivity As Integer) As Long
  200. Declare Function cFileSearchCount Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  201. Declare Function cFileToUpper Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  202. Declare Function cFileToLower Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  203. Declare Function cTruncatePath Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal NewLength As Long) As String
  204. Declare Function cFullPath Lib "mcdsk-32.dll" (ByVal nFileName As String) As String
  205. Declare Function cMakePath Lib "mcdsk-32.dll" (ByVal nDrive As String, ByVal nDir As String, ByVal nFileName As String, ByVal Ext As String) As String
  206. Declare Function cSplitPath Lib "mcdsk-32.dll" (ByVal nFileName As String, SPLITPATH As Any) As Integer
  207. Declare Function cFileDateCreated Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  208. Declare Function cFileLastDateAccess Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  209. Declare Function cFileLastDateModified Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  210. Declare Function cFileTimeCreated Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  211. Declare Function cFileLastTimeAccess Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  212. Declare Function cFileLastTimeModified Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  213. Declare Function cGetDriveType Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Integer
  214. Declare Function cFileSort Lib "mcdsk-32.dll" (ByVal FileIn As String, ByVal FileOut As String, ByVal SortMethod As Integer, ByVal RecordLength As Long, ByVal KeyOffset As Long, ByVal KeyLength As Long, rRecords As Long) As Long
  215. Declare Function cFileStatistics Lib "mcdsk-32.dll" (ByVal nFileName As String, nLines As Long, nWords As Long, nChars As Long) As Long
  216. Declare Function cFilesInDirectory Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal FirstNext As Integer) As String
  217. Declare Function cFilesInDirOnDisk Lib "mcdsk-32.dll" (ByVal nFile As String, ByVal nFileName As String, ByVal nAttribute As Integer) As Integer
  218. Declare Function cFilesInDirToArray Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal nAttribute As Integer, FileArray() As String) As Integer
  219. Declare Function cRenameFile Lib "mcdsk-32.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String) As Integer
  220. Declare Function cSearchFile Lib "mcdsk-32.dll" (ByVal lpStartPath As String, ByVal lpFileMask As String, ByVal lpFileResult As String) As Long
  221. Declare Function cSplitFile Lib "mcdsk-32.dll" (ByVal SourceFile As String, ByVal TargetFiles As String, ByVal PartSize As Long) As Long
  222. Declare Function cFileUUCP Lib "mcdsk-32.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String, ByVal EncodeDecode As Integer) As Long
  223. Declare Function cSetFileDateTime Lib "mcdsk-32.dll" (ByVal nFileName As String, SysCreation As Any, SysLastAccess As Any, SysLastWrite As Any) As Integer
  224. Declare Function cGetFileDisplayName Lib "mcdsk-32.dll" (ByVal nFileName As String) As String
  225. Declare Function cGetFileTypeName Lib "mcdsk-32.dll" (ByVal nFileName As String) As String
  226. Declare Function cGetWindowsDirectory Lib "mcdsk-32.dll" () As String
  227.  
  228. ' version
  229. Declare Function cGetVersion Lib "mcdsk-32.dll" () As Single
  230.  
  231.